Aminet 24/Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/english/SaveAsBin.ged

Text File | 1998-01-02 | 1KB | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;parse arg NameArt;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'BITS W=TRUE';'QUERY Name=File Var="Filename"';'QUERY Name=Doc Var="Filepfad"';if NameArt="n" then;do;'REQUEST FILE Title="Save file as" Var="Erg" Path = "'||Filepfad||'"';if (RC ~=0|Erg="") then;do;'BITS W=FALSE';'UNLOCK';exit;end;if Exists(Erg)~=0 then;do;'REQUEST Title="Attention" Body="File exists!|Shall it be replaced?" Button="Yes|!No"';if result=0 then;do;'BITS W=FALSE';'UNLOCK';exit;end;end;Filepfad=Erg;end;'save ALL FORCE NAME=t:gedhex';'BITS W=FALSE';address 'COMMAND';'c:delete >NIL: t:gedbin';'golded:tools/hex/hexbin h t:gedhex t:gedbin';'c:delete >NIL: "'||Filepfad||'"';'c:copy t:gedbin "'||Filepfad||'"';'c:delete >NIL: t:gedbin';'c:delete >NIL: t:gedhex';address;'SET NAME=doc Value="'||Filepfad||'"';'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit